7135 IF LEN(IN$) >35 THEN HTAB 18: VTAB 10: PRINT " TOO LONG--35 SPACES MAX--TRY AGAIN "; SPC( 26): GET X$: HTAB 18: VTAB 10: CALL -868: GOTO 7130
7140 H = 18:V = 11: GOSUB 60000: LET AAD$ = IN$
7145 IF FF = 2 THEN FF = 0: GOTO 5000
7150 H = 18:V = 12: GOSUB 60000: LET BAD$ = IN$
7155 IF FF = 2 THEN FF = 0: GOTO 5000
7160 H = 18:V = 13: GOSUB 60000: LET CAD$ = IN$
7165 IF FF = 2 THEN FF = 0: GOTO 5000
7210 H = 7:V = 15: GOSUB 61000
7220 IF FF = 2 THEN FF = 0: GOTO 5000
7240 H = 24:V = 15: GOSUB 60000: LET ACT$ = IN$
7250 IF FF = 2 THEN FF = 0: GOTO 5000
7260 IF LEN(IN$) >25 THEN HTAB 24: VTAB 15: PRINT " TOO LONG--25 SPACES MAX--TRY AGAIN MEMO:"; SPC( 12): GET X$: HTAB 24: VTAB 15: CALL -868: HTAB 63: VTAB 15: PRINT "MEMO:": GOTO 7240
7310 H = 69:V = 15: GOSUB 60000: LET MEM$ = IN$
7315 IF FF = 2 THEN FF = 0: GOTO 5000
7317 IF LEN(MEM$) >10 THEN HTAB 69: VTAB 15: PRINT "10 SPACE MAX": VTAB 16: FOR X = 1 TO 79: PRINT "-";: NEXT : GET X$: HTAB 69: VTAB 15: CALL -868: GOTO 7310
7320 HTAB 2: VTAB 17: CALL -958
7330 HTAB 17: VTAB 19: PRINT "PRESS <`> TO ENTER TRANSACTION OR <ANY KEY> TO EXIT"
7340 HTAB 40: VTAB 21: GET X$
7350 IF X$ = "`" OR X$ = "~" THEN 8000
7360 GOTO 5000
7370 REM INPUT FOR RECURRING TRANSACTION
7380 HTAB 58: VTAB 8: INPUT "";AMT$
7390 AMT = VAL(AMT$)
7400 J = AMT *100:Z$ = STR$( INT(J +.01)): IF LEN(Z$) = 1 THEN Z$ = "0" +Z$
7460 IF LEN(MEM$) >10 THEN HTAB 69: VTAB 15: PRINT "10 SPACE MAX": VTAB 16: FOR X = 1 TO 79: PRINT "-";: NEXT : GET X$: HTAB 69: VTAB 15: CALL -868: GOTO 7440
7520 VTAB 17: CALL -958
7530 HTAB 17: VTAB 19: PRINT "PRESS <`> TO ENTER TRANSACTION OR <ANY KEY> TO EXIT"
7540 HTAB 40: VTAB 21: GET X$
7550 IF X$ = "`" OR X$ = "~" THEN F = 1: GOTO 8000
9060 VTAB 17: CALL -958: HTAB 20: VTAB 19: PRINT "TRANSACTION # ";NUM;" IS NOT A CURRENT TRANSACTION.": HTAB 23: VTAB 20: PRINT "IT CAN BE EDITED AT THE REPORTS SECTION.": HTAB 30: VTAB 21: PRINT "PRESS <ANY KEY> TO EXIT"
9715 IF LEN(MEM$) >10 THEN HTAB 69: VTAB 15: PRINT "10 SPACE MAX": VTAB 16: FOR X = 1 TO 79: PRINT "-";: NEXT : GET X$: HTAB 69: VTAB 15: CALL -868: GOTO 9710
9720 VTAB 17: CALL -958
9730 HTAB 17: VTAB 19: PRINT "PRESS <`> TO ENTER TRANSACTION OR <ANY KEY> TO EXIT"
11315 IF LEN(ACT$) >26 THEN HTAB 44: VTAB 15: PRINT " TOO LONG--26 SPACES MAX--TRY AGAIN ": VTAB 16: FOR X = 1 TO 78: PRINT "-";: NEXT : GET X$: HTAB 44: VTAB 15: CALL -868: GOTO 11310
11320 VTAB 17: CALL -958
11330 HTAB 17: VTAB 19: PRINT "PRESS <`> TO ENTER TRANSACTION OR <ANY KEY> TO EXIT"
11340 HTAB 40: VTAB 21: GET X$
11350 IF X$ = "`" OR X$ = "~" THEN 11370
11360 FQ = 0: GOTO 10000
11370 IF FQ = 1 THEN FQ = 0: GOTO 11400
11375 FOR R = 1 TO 40
11380 IF COD$(R) = "\\\" THEN 11400
11390 NEXT
11400 COD$(R) = COD$
12000 REM WRITING
12010 PRINT D$;"OPEN /RAM/RECUR.TRANS,L$96"
12020 PRINT D$;"WRITE /RAM/RECUR.TRANS,R";R
12030 PRINT COD$
12040 PRINT DD$
12050 PRINT FRQ$
12060 PRINT AMT$
12065 IF F = 1 THEN PAY$ = LEFT$(PY$,26): REM F NEW DUE DATE
12070 PRINT PAY$
12080 PRINT AAD$
12090 PRINT BAD$
12100 PRINT CAD$
12110 PRINT CTG$
12120 PRINT ACT$
12130 PRINT D$;"CLOSE /RAM/RECUR.TRANS"
12135 IF F = 1 THEN F = 0: GOTO 5000
12140 FL = 1: GOSUB 16000: GOTO 10000
15000 REM LOAD RECUR.TRANS
15010 PRINT D$;"OPEN /RAM/RECUR.TRANS,L$96"
15020 FOR R = 1 TO 40
15030 PRINT D$;"READ /RAM/RECUR.TRANS,R";R
15040 INPUT "";COD$
15050 INPUT "";DD$,FRQ$,AMT$
15060 LET COD$(R) = COD$
15070 GOSUB 63000: LET PAY$(R) = IN$
15072 IF LEN(DD$) <8 THEN 15080
15073 IF RIGHT$(BDT$,2) < RIGHT$(DD$,2) THEN 15080
15075 IF BDT$ = >DD$ THEN PAY$(R) = PAY$(R) +"^":FO = 1
15080 NEXT
15090 PRINT D$;"CLOSE /RAM/RECUR.TRANS"
15100 RETURN
16000 REM ALPHABETICAL ORDER
16005 GOSUB 15000
16007 K = 0
16010 FOR AL = 65 TO 92
16020 FOR R = 1 TO 40
16060 IF ASC(COD$(R)) = AL THEN TCOD$(K) = COD$(R):TPAY$(K) = PAY$(R):K = K +1
16070 IF ASC(COD$(R)) = AL +32 THEN TCOD$(K) = COD$(R):TPAY$(K) = PAY$(R):K = K +1
16080 NEXT R
16090 NEXT AL
16100 K = 0
16110 IF FL = 1 THEN FL = 0: RETURN
17000 REM LIST FOR OVERDUE TRANSACTIONS
17010 HOME
17020 HTAB 21: VTAB 1: PRINT "---OVERDUE TRANSACTIONS ARE HIGHLIGHTED---"
17030 VTAB 3
17040 FOR K = 0 TO 19
17050 PRINT TCOD$(K);"- ";
17060 IF RIGHT$(TPAY$(K),1) = "^" THEN INVERSE : PRINT TPAY$(K): NORMAL : GOTO 17080
17070 PRINT TPAYS$(K)
17080 NEXT
17090 VTAB 3
17100 FOR K = 20 TO 39
17110 HTAB 40
17120 PRINT TCOD$(K);"- ";
17130 IF RIGHT$(TPAY$(K),1) = "^" THEN INVERSE : PRINT TPAY$(K): NORMAL : GOTO 17150
17140 PRINT TPAY$(K)
17150 NEXT
17160 HTAB 28: VTAB 23: PRINT "PRESS ANY KEY TO CONTINUE"